home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed6.d64 / word drill (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  20KB  |  583 lines

  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  31. 310 REM PROJECT DIRECTOR: FRANK WINTER
  32. 320 REM PROGRAM NAME: WORD DRILL
  33. 330 REM WRITTEN BY: PAT SCRIMGEOUR/STEVE DOUGLAS YORK BD OF ED
  34. 340 REM REVISED BY: PAT SCRIMGEOUR
  35. 350 REM UPDATED BY: BILL CUMBERLAND
  36. 399 :
  37. 400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9
  38. 405 PRINT"              [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  39. 413 [153]" RIGHT$N THIS PROGRAM, RIGHT$ WILL SHOW YOU        EIGHT SENTENCES.
  40. 414 PRINT" [197]ACH ONE WILL HAVE A BLANK IN IT,
  41. 415 [153]" AND THERE WILL BE TWO WORDS FOLLOWING   IT.
  42. 417 PRINT" [217]OU MUST TYPE IN  [193] [146] OR  [194] [146],"
  43. 418 PRINT" DEPENDING ON WHICH WORD YOU CHOOSE.
  44. 419 [153]" ATNFTER YOU HAVE DONE ALL EIGHT, YOU
  45. 420 PRINT" WILL HAVE A CHANCE TO CHANGE ANY OF     YOUR ANSWERS.
  46. 421 [153]" RIGHT$F YOU CHOOSE TO CHANGE AN ANSWER,
  47. 422 PRINT" IT WILL AUTOMATICALLY BE CHANGED TO
  48. 426 [153]" THE OTHER WORD (A OR B) POSSIBLE FOR    THAT SENTENCE.
  49. 427 GOSUB820
  50. 428 PRINT"[147] [215]HEN YOU ARE SATISFIED WITH YOUR        ANSWERS, TYPE  N [146].
  51. 429 [153]" RIGHT$ WILL THEN TELL YOU WHICH ONES"
  52. 431 [153]" YOU GOT WRONG, AND RIGHT$ WILL GIVE YOU A"
  53. 432 [153]" SHORT EXPLANATION OF THE DIFFERENCE"
  54. 433 [153]" BETWEEN THE TWO WORDS."
  55. 434 [153]" RIGHT$ WILL NOT TELL YOU WHAT THE RIGHT"
  56. 435 [153]" ANSWER IS, SO YOU WILL HAVE TO"
  57. 436 [153]" REMEMBER THE DIFFERENCES THE NEXT       TIME."
  58. 485 [141]820:[142]
  59. 499 :
  60. 500 [143] <YES> SOUND
  61. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  62. 510 [151]54296,15:[151]54277,42:[151]54278,250
  63. 515 [151]54276,23:[151]54273,23:[151]54272,191
  64. 520 [129]TM[178]1[164]100:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  65. 525 [151]54296,0:[142]
  66. 530 [143] <NO> SOUND
  67. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  68. 540 [151]54296,15:[151]54277,18:[151]54278,242
  69. 545 [151]54276,33:[151]54273,4:[151]54272,48
  70. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  71. 555 [151]54296,0:[142]
  72. 560 [143] <BLIP> SOUND
  73. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  74. 570 [151]54296,8:[151]54277,42:[151]54278,250
  75. 575 [151]54276,23:[151]54273,23:[151]54272,191
  76. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  77. 585 [151]54296,0:[142]
  78. 590 [129]TM[178]1[164]500:[130]:[142]
  79. 591 [129]TM[178]1[164]1000:[130]:[142]
  80. 592 [129]TM[178]1[164]2000:[130]:[142]
  81. 595 [129]TM[178]1[164]5000:[130]:[142]
  82. 599 :
  83. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3
  84. 801 [153]"      A TPUG EDUCATIONAL PROGRAM":[141]591
  85. 802 [153]"                                        WAIT";
  86. 803 [153]"                                        WAIT";
  87. 804 [153]"                                        WAIT";
  88. 805 [153]"               WORD DRILL               WAIT";
  89. 806 [153]"                                        WAIT";
  90. 807 [153]"OPEN                                        WAIT";
  91. 808 [153]"                                        WAIT";
  92. 809 [153]"                                        WAIT":[141]591:[141]560
  93. 810 [153]"          INSTRUCTIONS?  Y/N
  94. 811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811
  95. 812 IFR$="Y"THENGOSUB400
  96. 813 PRINT"[147]  AND AWAY WE GO .........
  97. 814 [141] 591:[141]500:[141]591
  98. 815 [137]1000
  99. 820 [141]591:[141]560
  100. 822 [151]UN,0:[153][200](UD$,24);"  (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE  WAIT"
  101. 824 [161]UI$:[139]UI$[179][177]" "[167]824
  102. 826 [142]
  103. 830 [141]591:[141]560
  104. 835 [151]UN,0:[153][200](UD$,24);"PRINT  (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE  WAITLIST"
  105. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  106. 845 [142]
  107. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  108. 855 [153]" --------------------------------------"
  109. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
  110. 865 UH=0:PRINT"":RETURN
  111. 875 PRINTLEFT$(UD$,24);"         SETTING THE STAGE ...      ":RETURN
  112. 899 :
  113. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  114. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  115. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  116. 905 UD$="":UP$="                                      "
  117. 909 RETURN
  118. 910 GOSUB900:PRINT"[147] "
  119. 920 GOTO800
  120. 999 :
  121. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
  122. 1095 IF FLAG=1 THEN CLR:GOSUB900:
  123. 1097 UT$=" [215]ORD [196]RILL"
  124. 1100 FLAG=1
  125. 1105 QU$=CHR$(34)
  126. 1111 TZ$=""
  127. 1120 DIM S$(45),A$(45,2),A(45),N(45),L(45),QU(23),Q$(45),AA$(45,2)
  128. 1130 DIM LL(45),R(45),AA(45),I(45)
  129. 1132 RESTORE:QU(L(R))=0
  130. 1140 M=8:UP=0:UG$=""
  131. 1150 N=44:AR=0
  132. 1160 DEF FNS(T)=LEN(AA$(T,R(T)))
  133. 1170 FORT=701TO710:POKET,0:NEXT
  134. 1180 GOSUB875
  135. 1190 FORT=1TON:READS$(T),A$(T,1),A$(T,2),A(T),N(T),L(T):NEXT
  136. 1196 FLAG=1
  137. 1200 FORT=1TOM
  138. 1210 R=INT(N*RND(1))+1:IFQU(L(R))THEN1210
  139. 1220 Q$(T)=S$(R):QU(L(R))=1:AA$(T,1)=A$(R,1):AA$(T,2)=A$(R,2):AA(T)=A(R)
  140. 1230 I(T)=N(R)
  141. 1240 LL(T)=L(R):NEXT:CR$=CHR$(13)+""
  142. 1250 FORT=1TOM
  143. 1260 POKE714+LL(T),1
  144. 1265 PRINT"[147]":POKEUT,UL%
  145. 1270 UG$="[209]UESTION":GOSUB 850
  146. 1271 PRINT" ";:FORG=1TOLEN(Q$(T)):IFMID$(Q$(T),G,1)="[160]"THENPRINTCR$CR$" ";:GOTO1290
  147. 1280 PRINTMID$(Q$(T),G,1);
  148. 1290 NEXTG
  149. 1300 REMPRINT" ";
  150. 1310 J=0:IFPOS(0)>35-LEN(AA$(T,1))-LEN(AA$(T,2))ORI(T)THENPRINTCR$CR$;:J=1
  151. 1320 PRINT" ("AA$(T,1)", "AA$(T,2)")"
  152. 1330 GOSUB560:PRINTCR$" [215]HICH WORD?  A [146] OR  B [146] >>>> ";
  153. 1340 US$="AB":UL=1:GOSUB35:R=ASC(UR$)-64
  154. 1380 R(T)=R:PRINT"  "AA$(T,R)
  155. 1390 PRINT"";
  156. 1400 FORG=1TOLEN(Q$(T)):IFMID$(Q$(T),G,1)="[160]"THENPRINTCHR$(13)CR$"";:GOTO1430
  157. 1410 IFMID$(Q$(T),G,1)="[164]"THENPRINTAA$(T,R);:G=G+LEN(AA$(T,R))
  158. 1420 PRINT"";
  159. 1430 NEXT
  160. 1440 IFJ=1THENPRINTCR$;:GOTO1460
  161. 1450 IFI(T)ANDR=2THENFORTY=1TOI(T):PRINT"";:NEXTTY
  162. 1460 PRINT" ";:IFPOS(0)>0THEN1460
  163. 1480 FORTM=1TO2000:NEXT:NEXTT
  164. 1490 GOSUB1650
  165. 1500 PRINTTZ$;:PRINT" [195]HANGES? (Y/N) >>> ";
  166. 1501 US$="YN":UL=1:GOSUB35:R$=UR$
  167. 1530 IFR$="Y"THENGOSUB1640
  168. 1540 IFR$="N"THENGOSUB1640:GOTO1590
  169. 1545 PRINTTZ$;:PRINT"                                 "
  170. 1550 PRINTTZ$;:PRINT" [215]HICH SENTENCE? (1-8) >> ";
  171. 1555 US$="12345678":UL=1:GOSUB35:T=VAL(UR$)
  172. 1580 GOSUB1640:R(T)=1-(R(T)-1)+1:GOSUB1830
  173. 1585 PRINTTZ$;:PRINT"                                   ":GOTO1500
  174. 1590 GOSUB1760
  175. 1591 GOSUB 830
  176. 1630 GOSUB2770
  177. 1640 FORG=1TO200:NEXT:RETURN
  178. 1650 PRINT"[147]";:FORT=1TOM
  179. 1670 PRINT T;:FORG=1TOLEN(Q$(T))
  180. 1680 N$=MID$(Q$(T),G,1):PO=POS(0):IFPO>39THENPO=PO-39
  181. 1690 IFN$="[160]"ANDPO<38THENFORTY=POTO38:PRINT" ";:NEXT
  182. 1700 IFN$="[160]"THENPRINTCR$"    ";:Y$=Y$+"":GOTO1730
  183. 1710 IFN$="[164]"THENPRINTAA$(T,R(T));:G=G+LEN(AA$(T,R(T)))-1:GOTO1740
  184. 1720 PRINTN$;
  185. 1730 NEXTG:FORG=POS(0)TO39:PRINT" ";:NEXT:PRINTCR$;:Y$=Y$+"":NEXTT:RETURN
  186. 1740 IFI(T)ANDR(T)=2THENG=G-I(T)
  187. 1750 GOTO1730
  188. 1760 PRINT"";:G=US+2:FORT=1TOM
  189. 1770 IFPEEK(G)-48=TTHEN1800
  190. 1780 PRINT"";:G=G+40:IFG=33690THENPRINT"";:RETURN
  191. 1790 GOTO1770
  192. 1800 IFR(T)=AA(T)THENPRINT"[186][157]";:GOSUB500:SC=SC+1:QU(LL(T))=2:NEXTT:GOTO1820
  193. 1810 PRINT"X[157]";:GOSUB530:POKE700+LL(T),1:NEXTT
  194. 1820 PRINT"";:RETURN
  195. 1830 PRINT"";:G=US+2
  196. 1840 IFPEEK(G)-48=TTHEN1870
  197. 1850 PRINT"";:G=G+40:IFG=33690THENPRINT"";:RETURN
  198. 1860 GOTO1840
  199. 1870 PRINT" "T;:FORG=1TOLEN(Q$(T))
  200. 1880 N$=MID$(Q$(T),G,1):IFN$="[160]"THENPRINTCR$"    ";:GOTO1910
  201. 1890 IFN$="[164]"THENPRINTAA$(T,R(T));:G=G+LEN(AA$(T,R(T)))-1:GOTO1920
  202. 1900 PRINTN$;
  203. 1910 NEXTG:PRINT"   [157][157][157]"CR$CR$;:RETURN
  204. 1920 IFI(T)ANDR(T)=2THENG=G-I(T)
  205. 1930 GOTO1910
  206. 2160 UG$="[208]AGE":GOSUB850
  207. 2170 RETURN
  208. 2210 DATA" [212]HE [164][164][164][164][164][164] WE RECEIVED WAS TO PAY[160]ATTENTION TO THE TEACHER.",ADVISE
  209. 2220 DATAADVICE,2,0,1
  210. 2230 DATA" [201] [164][164][164][164][164][164] YOU TO KEEP CALM.",ADVISE,ADVICE,1,0,1
  211. 2240 DATA" [212]HE TEMPERATURE WAS NOT[160][164][164][164][164][164][164][164][164] BY THE RAIN.",AFFECTED,EFFECTED
  212. 2250 DATA1,0,2
  213. 2260 DATA" [212]HE [164][164][164][164][164][164] OF THE STORM WAS TO[160]LOWER THE TEMPERATURE."
  214. 2270 DATAAFFECT,EFFECT,2,0,2
  215. 2280 DATA" [212]HE CAR WOULD NOT [164][164][164][164][164] PROPERLY."
  216. 2290 DATABRAKE,BREAK,1,0,3
  217. 2300 DATA" [196]ON'T [164][164][164][164][164] THAT!"
  218. 2310 DATABRAKE,BREAK,2,0,3
  219. 2320 DATA" [212]HE SANDPAPER IS TOO [164][164][164][164][164][164]."
  220. 2330 DATACOARSE,COURSE,1,0,4
  221. 2340 DATA" [215]E VISITED THE RACING [164][164][164][164][164][164]."
  222. 2350 DATACOARSE,COURSE,2,0,4
  223. 2360 DATA" [195]OME [164][164][164][164], PLEASE.", HERE,HEAR,1,0,5
  224. 2370 DATA" [195]AN YOU [164][164][164][164] ME?", HERE,HEAR,2,0,5
  225. 2380 DATA" [200]E THINKS [164][164][164][164][164] GOING TO LEAVE.",THEIR,"THEY'[148][148]RE",2,4,6
  226. 2390 DATA" [212]HIS BOX BELONGS RIGHT [164][164][164][164][164].",THEIR,THERE,2,0,7
  227. 2400 DATA" [201]S THIS [164][164][164][164][164] CAR?", THEIR,THERE,1,0,7
  228. 2410 DATA" [198]EW PLANTS GROW ON THE [164][164][164][164][164][164].",DESERT,"DESSER[148]T",1,2,8
  229. 2420 DATA" [215]E'RE HAVING PIE FOR [164][164][164][164][164][164].",DESERT,"DESSER[148]T",2,2,8
  230. 2430 DATA" [204]ANGSTAFF [210]OAD WAS [164][164][164][164][164][164][164][164] OLD[160][200]IGHWAY 7.",FORMALLY,FORMERLY,2,0,9
  231. 2440 DATA" [212]HE ROBBERY WAS [164][164][164] BY AN[160]ESCAPED CRIMINAL.",LED,"LEA[148]D",1,2,10
  232. 2450 DATA" [195]URTAINS ARE OFTEN WEIGHTED DOWN[160]WITH [164][164][164].", LED,"LEA[148]D",2,2,10
  233. 2460 DATA" [193] BUS JUST DROVE [164][164][164][164] THE SCHOOL.", PAST,"PASS[148][148]ED",1,4,11
  234. 2470 DATA" [193] BUS JUST [164][164][164][164] THE SCHOOL.", PAST,"PASS[148][148]ED",2,4,11
  235. 2480 DATA" [215]OULD YOU LIKE A [164][164][164][164][164] OF CAKE?", PEACE,PIECE,2,0,12
  236. 2490 DATA" [215]HEN THERE ARE NO WARS,[160]THERE IS [164][164][164][164][164].", PEACE,PIECE,1,0,12
  237. 2500 DATA" [193]NOTHER WORD FOR PRAIRIE IS [164][164][164][164][164].", PLAIN,PLANE,1,0,13
  238. 2510 DATA" [193] WHITE WALL LOOKS [164][164][164][164][164].", PLAIN,PLANE,1,0,13
  239. 2520 DATA" [193]IR [195]ANADA OWNS MANY [164][164][164][164][164][164].", PLAINS,PLANES,2,0,13
  240. 2530 DATA" [212]HE [164][164][164][164][164][164][164][164][164] OF THE LOAN WAS[160]REPAID TO THE BANK.", PRINCIPLE
  241. 2540 DATA PRINCIPAL,2,0,14
  242. 2550 DATA" [193] PERSON SHOULD STICK TO HIS[160][164][164][164][164][164][164][164][164][164][164].", PRINCIPALS,PRINCIPLES
  243. 2560 DATA2,0,14
  244. 2570 DATA" [202]EAN [164][164][164][164][164] THE BALL AT YOU.", THREW,"THROU[148][148]GH",1,4,15
  245. 2580 DATA" [212]HE BALL WENT [164][164][164][164][164] THE WINDOW.", THREW,"THROU[148][148]GH",2,4,15
  246. 2590 DATA" [200]AVE YOU [164][164][164] THE NEWSPAPER TODAY?", RED,"REA[148]D",2,2,16
  247. 2600 DATA" [212]HIS COMPUTER IS [164][164] BIG FOR A[160]WRISTWATCH.", TO,"TO[148]O",2,2,17
  248. 2610 DATA" [198]RANK ATE [164][164][164] MANY JELLYBEANS.", TOO,TWO,1,0,17
  249. 2620 DATA" [193] BELT GOES AROUND YOUR [164][164][164][164][164].", WAIST,WASTE,1,0,18
  250. 2630 DATA" [215]E SHOULD NOT [164][164][164][164][164] ENERGY.", WAIST,WASTE,2,0,18
  251. 2640 DATA" [211]OME NEWSPAPERS ARE PUBLISHED[160][164][164][164][164][164][164].", WEAKLY,WEEKLY,2,0,19
  252. 2650 DATA" [215]HEN YOU ARE ILL, SOMETIMES YOU[160]ARE [164][164][164][164].", WEAK,WEEK,1,0,19
  253. 2660 DATA" [217]OU SHOULD BE ABLE TO [164][164][164] THIS[160]SENTENCE.", SEE,SEA,1,0,20
  254. 2670 DATA" [193]NOTHER WORD FOR [164][164][164] IS OCEAN.", SEE,SEA,2,0,20
  255. 2680 DATA" [212]HE [164][164][164][164][164][164][164] WILL BE SUNNY.", WEATHER,WHETHER,1,0,21
  256. 2690 DATA" [201] DON'T KNOW [164][164][164][164][164][164][164] OR NOT IT[160]WILL BE SUNNY.", WEATHER,WHETHER
  257. 2700 DATA 2,0,21
  258. 2710 DATA" [164][164][164][164][164] PENCIL IS THIS?","[215]HO'S","[215]HOSE",2,0,22
  259. 2720 DATA" [164][164][164][164][164] COMING TO THE PARTY?","[215]HO'S","[215]HOSE",1,0,22
  260. 2730 DATA" [201] THINK THIS IS [164][164][164][164] ERASER.", YOUR,"YOU'[148][148]RE",1,4,23
  261. 2740 DATA" [201] HOPE [164][164][164][164] GOING TO ANSWER THIS[160]QUESTION PROPERLY.", YOUR,YOU'RE
  262. 2750 DATA 2,4,23
  263. 2770 IFQU(1)<>1THEN2880
  264. 2780 PRINT"[147][193]DVICE/[193]DVISE"
  265. 2790 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  266. 2800 PRINT"[193]DVICE[146] IS A NOUN MEANING SUGGESTIONS"
  267. 2810 PRINT"GIVEN TO IMPROVE SOMETHING."
  268. 2820 PRINT"[197]XAMPLE[146]: [205]Y ADVICE TO YOU IS TO GO"
  269. 2830 PRINT" AND SEE THE TEACHER ABOUT YOUR WORK."
  270. 2840 PRINT"[193]DVISE[146], ON THE OTHER HAND, IS A VERB"
  271. 2850 PRINT"MEANING TO GIVE ADVICE."
  272. 2860 PRINT"[197]XAMPLE[146]: [211]HE ADVISED ME TO GO HOME."
  273. 2870 GOSUB830
  274. 2880 IFQU(2)<>1THEN3010
  275. 2890 PRINT"[147][193]FFECT/[197]FFECT"
  276. 2900 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  277. 2910 PRINT"[212]O AFFECT[146] SOMETHING IS TO ALTER ITS"
  278. 2920 PRINT"STATE SOMEHOW."
  279. 2930 PRINT"[197]XAMPLE[146]: [212]HE INJURY AFFECTED HIS KNEE."
  280. 2940 PRINT"[193]N EFFECT[146] IS THE CHANGE MADE IN"
  281. 2950 PRINT"SOMETHING WHEN IT IS AFFECTED."
  282. 2960 PRINT"[197]XAMPLE[146]: [212]HE INJURY HAD AN EFFECT"
  283. 2970 PRINT" ON HIS KNEE."
  284. 2980 PRINT""QU$"[197]FFECT"QU$" IS A NOUN, AND "QU$"AFFECT"QU$
  285. 2990 PRINT"IS A VERB."
  286. 3000 GOSUB830
  287. 3010 IFQU(3)<>1THEN3110
  288. 3020 PRINT"[147][194]RAKE/[194]REAK"
  289. 3030 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  290. 3040 PRINT"[197]RRORS MADE BETWEEN THESE TWO WORDS"
  291. 3050 PRINT"ARE GENERALLY SPELLING MISTAKES,"
  292. 3060 PRINT"RATHER THAN MISUNDERSTANDINGS."
  293. 3070 PRINT"[212]O BREAK[146] IS TO HARM OR DESTROY; TO"
  294. 3080 PRINT"BRAKE[146] IS TO SLOW DOWN (E.G., APPLY"
  295. 3090 PRINT"THE BRAKES IN A CAR)."
  296. 3100 GOSUB830
  297. 3110 IFQU(4)<>1THEN3240
  298. 3120 PRINT"[147][195]OARSE/[195]OURSE"
  299. 3130 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  300. 3140 PRINT"[195]OARSE[146] IS AN ADJECTIVE (DESCRIBES A"
  301. 3150 PRINT"NOUN) THAT USUALLY MEANS LARGE-GRAINED."
  302. 3160 PRINT"[198]OR INSTANCE, COARSE SAND MEANS SAND"
  303. 3170 PRINT"WITH FAIRLY LARGE PEBBLES IN IT."
  304. 3180 PRINT"[195]OARSE SCREEN IS SCREEN WITH LARGE"
  305. 3190 PRINT"SPACES BETWEEN THE WIRES."
  306. 3200 PRINT"[193] [195]OURSE[146] IS A ROUTE OR TRACK TO FOLLOW."
  307. 3210 PRINT"(E.G., A RACING COURSE, A COURSE OF"
  308. 3220 PRINT"ACTION, OR A COURSE AT SCHOOL)"
  309. 3230 GOSUB830
  310. 3240 IFQU(5)<>1THEN3340
  311. 3250 PRINT"[147][200]EAR/[200]ERE"
  312. 3260 PRINT"[163][163][163][163][163][163][163][163][163]"
  313. 3270 PRINT"[200]EAR[146] IS A VERB MEANING TO DETECT WITH"
  314. 3280 PRINT"THE EAR.  [217]OU HEAR[146] NOISES."
  315. 3290 PRINT"[200]ERE[146] IS A PRONOUN (REPLACES A NOUN)"
  316. 3300 PRINT"THAT INDICATES THAT AN ACTION IS TAKING"
  317. 3310 PRINT"PLACE WHERE YOU ARE.  "QU$"[195]OME HERE."QU$" MEANS";
  318. 3320 PRINTQU$"[195]OME TO WHERE [201] AM."QU$"."
  319. 3330 GOSUB830
  320. 3340 IFQU(6)<>1THEN3460
  321. 3350 PRINT"[147][212]HEIR/[212]HEY'RE"
  322. 3360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  323. 3370 PRINT"[212]HEIR[146] IS A POSSESSIVE PRONOUN TO"
  324. 3380 PRINT"INDICATE THAT SOMETHING BELONGS TO A"
  325. 3390 PRINT"GROUP OF PEOPLE."
  326. 3400 PRINT"[197]XAMPLE[146]: [212]HAT IS THEIR BASEBALL."
  327. 3410 PRINT"[212]HEY'RE[146] IS A CONTRACTION OF THE WORDS"
  328. 3420 PRINTQU$"THEY ARE"QU$"."
  329. 3430 PRINT"[197]XAMPLE[146]: "QU$"[212]HEY'RE ALL HERE."QU$" MEANS THE
  330. 3440 [153]" SAME AS "QU$"(null)HEY ARE ALL HERE."QU$"."
  331. 3450 [141]830
  332. 3460 [139]QU(7)[179][177]1[167]3630
  333. 3470 [153]"LOAD(null)HEIR/(null)HERE"
  334. 3480 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  335. 3490 [153]QU$"(null)HEIR"QU$" IS A POSSESSIVE PRONOUN TO"
  336. 3500 [153]"INDICATE THAT SOMETHING BELONGS TO A"
  337. 3510 [153]"GROUP OF PEOPLE."
  338. 3520 [153]"VALXAMPLEWAIT: (null)HAT IS THEIR FRISBEE."
  339. 3530 [153]""QU$"(null)HERE"QU$" IS A PRONOUN TO DESCRIBE A"
  340. 3540 [153]"PLACE DISTANT FROM YOUR OWN LOCATION."
  341. 3550 [153]"VALXAMPLEWAIT: (null)HE FLYING SAUCER LANDED"
  342. 3560 [153]" THERE."
  343. 3570 [153]"(null)HESE TWO WORDS ARE OFTEN CONFUSED."
  344. 3580 [153]"ATNN EASY WAY TO REMEMBER WHICH IS WHICH"
  345. 3590 [153]"IS TO REMEMBER THAT THEREWAIT HAS IN IT THE"
  346. 3600 [153]"WORD HEREWAIT, BOTH OF WHICH REFER TO"
  347. 3610 [153]"PLACES."
  348. 3620 [141]830
  349. 3630 [139]QU(8)[179][177]1[167]3740
  350. 3640 [153]"LOADSTR$ESERT/STR$ESSERT"
  351. 3650 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  352. 3660 [153]"(null)HERE SHOULD BE VERY LITTLE CONFUSION"
  353. 3670 [153]"OVER THE MEANINGS OF THESE WORDS, BUT"
  354. 3680 [153]"SINCE THEY ARE SPELLED SO SIMILARLY,"
  355. 3690 [153]"MANY PEOPLE DON'T REMEMBER HOW TO SPELL"
  356. 3700 [153]"EITHER ONE.  ATN DESERTWAIT IS A LARGE"
  357. 3710 [153]"EXPANSE OF DRY LAND.  ATN DESSERTWAIT IS"
  358. 3720 [153]"EATEN AFTER DINNER."
  359. 3730 [141]830
  360. 3740 [139]QU(9)[179][177]1[167]3880
  361. 3750 [153]"LOADASCORMALLY/ASCORMERLY"
  362. 3760 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  363. 3770 [153]"ASCORMALLYWAIT IS AN ADVERB (WORD THAT"
  364. 3780 [153]"DESCRIBES A VERB) MEANING OFFICIALLY."
  365. 3790 [153]"(null)HEN SOMETHING HAS BEEN DONE FORMALLY,"
  366. 3800 [153]"IT HAS BEEN DONE IN A PRE-ARRANGED"
  367. 3810 [153]"ORDER, ACCORDING TO TRADITION."
  368. 3820 [153]"ASCORMERLYWAIT IS ANOTHER ADVERB, BUT THIS"
  369. 3830 [153]"ONE MEANS "QU$"PREVIOUSLY"QU$"."
  370. 3840 [153]"VALXAMPLEWAIT: (null)IRKO ASCRYCE PLAYS FOR"
  371. 3850 [153]" THE (null)APLE (null)EAFS.  LEFT$E FORMERLY PLAYED"
  372. 3860 [153]" FOR THE (null)UEBEC (null)ORDIQUES."
  373. 3870 [141]830
  374. 3880 [139]QU(10)[179][177]1[167]4020
  375. 3890 [153]"LOAD(null)EAD/(null)ED"
  376. 3900 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  377. 3910 [153]"(null)EADWAIT IS A WORD THAT CAN BE PRONOUNCED"
  378. 3920 [153]"TWO DIFFERENT WAYS, EACH INDICATING A"
  379. 3930 [153]"DIFFERENT MEANING.  (null)HEN PRONOUNCED"
  380. 3940 [153]QU$"LED"QU$" IT MEANS A VERY HEAVY TYPE OF"
  381. 3950 [153]"METAL.  (null)HEN PRONOUNCED "QU$"LEED"QU$" IT IS A"
  382. 3960 [153]"VERB MEANING "QU$"TO GUIDE"QU$"."
  383. 3970 [153]"(null)EDWAIT IS THE PAST TENSE OF THE VERB"
  384. 3980 [153]QU$"LEAD"QU$"."
  385. 3990 [153]"VALXAMPLEWAIT: (null)HE GENERAL LED THE ATTACK"
  386. 4000 [153]" AGAINST THE ENEMY."
  387. 4010 [141]830
  388. 4020 [139]QU(11)[179][177]1[167]4210
  389. 4030 [153]"LOAD(null)ASSED/(null)AST"
  390. 4040 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  391. 4050 [153]"(null)HERE IS MUCH CONFUSION OVER THESE TWO"
  392. 4060 [153]"WORDS, SINCE THEY HAVE SIMILAR MEANINGS"
  393. 4070 [153]"AS WELL AS SIMILAR SPELLINGS.  (null)ASSEDWAIT"
  394. 4080 [153]"IS THE PAST TENSE OF THE VERB "QU$"PASS"QU$","
  395. 4090 [153]"MEANING TO GO BY.  (null)ASTWAIT IS EITHER"
  396. 4100 [153]"A ADJECTIVE (DESCRIBES A NOUN) MEANING"
  397. 4110 [153]"SOMETHING THAT HAS GONE BY ("QU$"PAST
  398. 4120 PRINT"TENSE"QU$"), A NOUN MEANING TIME THAT HAS"
  399. 4130 PRINT"GONE BY ("QU$"THE PAST"QU$"), OR A VERB USED"
  400. 4140 PRINT"IN A SIMILAR, BUT NOT IDENTICAL WAY"
  401. 4150 PRINT"TO "QU$"PASSED"QU$"."
  402. 4160 PRINT"[197]XAMPLE[146]: [212]HE TRUCK PASSED US."
  403. 4170 PRINT"         [212]HE TRUCK WENT PAST US."
  404. 4180 PRINT"[194]OTH SENTENCES HAVE SIMILAR MEANINGS,"
  405. 4190 PRINT"BUT ARE CONSTRUCTED DIFFERENTLY."
  406. 4200 GOSUB830
  407. 4210 IFQU(12)<>1THEN4300
  408. 4220 PRINT"[147][208]EACE/[208]IECE"
  409. 4230 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  410. 4240 PRINT"[208]EACE[146] (A NOUN) IS WHAT EXISTS WHEN"
  411. 4250 PRINT"THERE IS NO FIGHTING.  [212]HE TIME WHEN"
  412. 4260 PRINT"THERE IS NO WAR IS CALLED PEACETIME."
  413. 4270 PRINT"[193] PIECE[146] IS A PORTION OF SOMETHING."
  414. 4280 PRINT"[193] PIECE OF CAKE IS PART OF A CAKE."
  415. 4290 GOSUB830
  416. 4300 IFQU(13)<>1THEN4480
  417. 4310 PRINT"[147][208]LAIN/[208]LANE"
  418. 4320 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  419. 4330 PRINT"[193] PLAIN[146] IS A LARGE, FLAT AREA OF LAND."
  420. 4340 PRINT"[208]LAIN[146] IS ALSO AN ADJECTIVE TO DESCRIBE"
  421. 4350 PRINT"SOMETHING AS ORDINARY OR UNIFORM."
  422. 4360 PRINT"[193] PLAIN HAT WOULD BE AN ORDINARY-LOOKING";
  423. 4370 PRINT"HAT, PROBABLY ALL ONE COLOUR."
  424. 4380 PRINT"[208]LANE[146] IS A NOUN WHICH MEANS ONE OF"
  425. 4390 PRINT"THREE THINGS:  [201]N MATHEMATICS, A PLANE"
  426. 4400 PRINT"IS A FLAT SURFACE IN SPACE.  [215]HEN YOU"
  427. 4410 PRINT"ARE BUILDING SOMETHING, A PLANE IS A"
  428. 4420 PRINT"TOOL USED TO MAKE A SURFACE FLAT."
  429. 4430 PRINT"([212]O PLANE IS ALSO THE VERB DESCRIIBING"
  430. 4440 PRINT"THE ACTION OF USING A PLANE.)  [193]S WELL,"
  431. 4450 PRINT"PLANE IS NOW USED AS A SHORT FORM OF"
  432. 4460 PRINT"THE WORD "QU$"AIRPLANE"QU$"."
  433. 4470 GOSUB830
  434. 4480 IFQU(14)<>1THEN4650
  435. 4490 PRINT"[147][208]RINCIPAL/[208]RINCIPLE"
  436. 4500 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  437. 4510 PRINT"[208]RINCIPAL[146] IS AN ADJECTIVE MEANING"
  438. 4520 PRINT"MOST IMPORTANT, OR LARGEST."
  439. 4530 PRINT"[198]OR EXAMPLE, WE SPEAK OF "QU$"THE PRINCIPAL"
  440. 4540 PRINT"REASON"QU$" FOR SOMETHING.  [215]HEN USED IN"
  441. 4550 PRINT"THE FORM "QU$"PRINCIPAL OF A SCHOOL"QU$", THE"
  442. 4560 PRINT"WORD IS A NOUN."
  443. 4562 PRINT"[208]RINCIPAL[146] CAN ALSO MEAN A SUM OF MONEY
  444. 4564 [153]"LENT AND EARNING INTEREST.
  445. 4570 PRINT"[212]HE WORD PRINCIPLE[146] IS OFTEN CONFUSED"
  446. 4580 PRINT"WITH "QU$"PRINCIPAL"QU$".  [193] PRINCIPLE IS"
  447. 4590 PRINT"A RULE, LAW, OR DOCTRINE."
  448. 4600 PRINT"[193] PERSON'S PRINCIPLES ARE THE RULES HE"
  449. 4610 PRINT"LIVES BY.  [212]HE PRINCIPLES OF A METHOD"
  450. 4620 PRINT"ARE THE RULES THAT MUST BE FOLLOWED"
  451. 4630 PRINT"IN THE METHOD."
  452. 4640 GOSUB830
  453. 4650 IFQU(15)<>1THEN4780
  454. 4660 PRINT"[147][212]HREW/[212]HROUGH"
  455. 4670 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
  456. 4680 PRINT"[212]HREW[146] IS THE PAST TENSE OF THE VERB"
  457. 4690 PRINTQU$"THROW"QU$"."
  458. 4700 PRINT"[197]XAMPLE[146]: [194]OB THREW THE CREAM PIE."
  459. 4710 PRINT"[212]HROUGH[146] IS AN ADVERB INDICATING HOW"
  460. 4720 PRINT"SOMETHING MOVES.  "QU$"[212]HE BALL WENT"
  461. 4730 PRINT"THROUGH THE WINDOW."QU$
  462. 4740 PRINT"[212]HROUGH CAN ALSO BE USED AS AN ADJECTIVE";
  463. 4750 PRINT"TO MEAN "QU$"FINISHED"QU$", AS IN "QU$"[193]RE YOU"
  464. 4760 PRINT"THROUGH?"QU$
  465. 4770 GOSUB830
  466. 4780 IFQU(16)<>1THEN4890
  467. 4790 PRINT"[147][210]EAD/[210]ED"
  468. 4800 PRINT"[163][163][163][163][163][163][163][163]"
  469. 4810 PRINT"[210]EAD[146] IS A WORD WITH TWO MEANINGS"
  470. 4820 PRINT"ACCORDING TO PRONUNCIATION.  [215]HEN"
  471. 4830 PRINT"PRONOUNCED "QU$"REED"QU$", "QU$"READ"QU$" IS A VERB"
  472. 4840 PRINT"MEANING A WAY OF COMMUNICATING.  [215]HEN"
  473. 4850 PRINT"IT IS PRONOUNCED "QU$"RED"QU$", IT IS THE PAST"
  474. 4860 PRINT"TENSE OF THIS VERB."
  475. 4870 PRINT"[210]ED[146] IS A COLOUR."
  476. 4880 GOSUB830
  477. 4890 IFQU(17)<>1THEN5040
  478. 4900 PRINT"[147][212]O/[212]OO/[212]WO"
  479. 4910 PRINT"[163][163][163][163][163][163][163][163][163][163]"
  480. 4920 PRINT"[212]WO[146] IS A WORD REPRESENTING A NUMBER"
  481. 4930 PRINT"(OF OBJECTS).  (E.G., [212]WO STARS: * *)"
  482. 4940 PRINT"[212]OO[146] MEANS "QU$"ALSO"QU$", "QU$"AS WELL AS"QU$", OR"
  483. 4950 PRINTQU$"AN EXCESSIVE AMOUNT"QU$".  [198]OR INSTANCE:"
  484. 4960 PRINTQU$"TOO MUCH SCHOOL"QU$", OR "QU$"[212]HERE WERE"
  485. 4970 PRINT"RADIOS, AND TELEVISIONS, TOO."QU$"."
  486. 4980 PRINT"[212]O[146] IS A PREPOSITION HAVING SO MANY"
  487. 4990 PRINT"MEANINGS THAT THERE ISN'T TIME TO[146] SHOW"
  488. 5000 PRINT"THEM ALL HERE."
  489. 5010 PRINT"[212]HE IMPORTANT THING TO[146] REMEMBER IS THAT"
  490. 5020 PRINTQU$"TOO"QU$" IS NOT SPELLED "QU$"TO"QU$"."
  491. 5030 GOSUB830
  492. 5040 IFQU(18)<>1THEN5160
  493. 5050 PRINT"[147][215]AIST/[215]ASTE"
  494. 5060 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  495. 5070 PRINT"[212]HE WAIST[146] IS THE PART OF THE BODY"
  496. 5080 PRINT"JUST ABOVE THE HIPS.  [201]T IS THE AREA"
  497. 5090 PRINT"WHERE A BELT IS WORN."
  498. 5100 PRINT"[215]ASTE[146] IS A NOUN MEANING EXCESS WITH"
  499. 5110 PRINT"NO APPARENT VALUE, AS IN "QU$"[212]HAT WAS A"
  500. 5120 PRINT"WASTE OF TIME."QU$", OR A VERB MEANING TO"
  501. 5130 PRINT"USE TOO MUCH OF SOMETHING ("QU$"[196]ON'T WASTE"
  502. 5140 PRINT"ENERGY."QU$")."
  503. 5150 GOSUB830
  504. 5160 IFQU(19)<>1THEN5250
  505. 5170 PRINT"[147][215]EAK/[215]EEK"
  506. 5180 PRINT"[163][163][163][163][163][163][163][163][163]"
  507. 5190 PRINT"[215]EAK[146] IS AN ADJECTIVE INDICATING LACK"
  508. 5200 PRINT"OF STRENGTH."
  509. 5210 PRINT"[197]XAMPLE[146]: [212]HE [193]RGOS ARE A WEAK TEAM."
  510. 5220 PRINT"[193] WEEK[146] IS A PERIOD OF TIME EQUAL"
  511. 5230 PRINT"TO SEVEN DAYS."
  512. 5240 GOSUB830
  513. 5250 IFQU(20)<>1THEN5340
  514. 5260 PRINT"[147][211]EA/[211]EE"
  515. 5270 PRINT"[163][163][163][163][163][163][163]"
  516. 5280 PRINT"[211]EA[146] IS A NOUN MEANING THE SAME AS"
  517. 5290 PRINT"OCEAN, A LARGE BODY OF WATER (USUALLY"
  518. 5300 PRINT"SALT WATER)."
  519. 5310 PRINT"[211]EE[146] IS A VERB MEANING TO PERCEIVE"
  520. 5320 PRINT"WITH THE EYES.  "QU$"[201] SEE THE COMPUTER."QU$
  521. 5330 GOSUB830
  522. 5340 IFQU(21)<>1THEN5460
  523. 5350 PRINT"[147][215]EATHER/[215]HETHER"
  524. 5360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  525. 5370 PRINT"[212]HE WEATHER[146] IS THE CLIMATE IN ONE"
  526. 5380 PRINT"PLACE AT A PARTICULAR TIME.  [212]HE WEATHER";
  527. 5390 PRINT"CAN BE RAINY, HOT, DRY, OR ALMOST"
  528. 5400 PRINT"ANYTHING ELSE."
  529. 5410 PRINT"[215]HETHER[146] OR NOT YOU UNDERSTAND THE"
  530. 5420 PRINT"DIFFERENCE BETWEEN THESE TWO WORDS"
  531. 5430 PRINT"DEPENDS ON WHETHER[146] YOU UNDERSTAND"
  532. 5440 PRINT"THE USES OF THE WORDS."
  533. 5450 GOSUB830
  534. 5460 IFQU(22)<>1THEN5640
  535. 5470 PRINT"[147][215]HO'S/[215]HOSE"
  536. 5480 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  537. 5490 PRINT"[212]HESE TWO WORDS ARE OFTEN CONFUSED"
  538. 5500 PRINT"BECAUSE PEOPLE ARE UNSURE ABOUT THEIR"
  539. 5510 PRINT"MEANINGS.  [210]EMEMBER THAT WHO'S[146] IS ONLY[146]"
  540. 5520 PRINT"A CONTRACTION FOR "QU$"WHO IS"QU$" (E.G.,"
  541. 5530 PRINTQU$"[215]HO'S ON FIRST?"QU$")."
  542. 5540 PRINT"[215]HOSE[146], HOWEVER, IS A POSSESSIVE"
  543. 5550 PRINT"PRONOUN MEANING "QU$"BELONGING TO WHOM"QU$"."
  544. 5560 PRINT"[217]OU MIGHT THINK THAT, SINCE MOST WORDS"
  545. 5570 PRINT"TAKE A ' (E.G., [202]ACK'S) TO BECOME"
  546. 5580 PRINT"POSSESSIVE, THAT WHO'S WOULD BE THE"
  547. 5590 PRINT"POSSESSIVE FORM OF WHO, BUT THIS IS NOT"
  548. 5600 PRINT"THE CASE.  [212]HE ONLY WAY TO REMEMBER"
  549. 5610 PRINT"WHICH WORD TO USE WHEN IS TO KNOW THE"
  550. 5620 PRINT"DIFFERENCES; SO, LEARN THEM!"
  551. 5630 GOSUB830
  552. 5640 IFQU(23)<>1THEN5790
  553. 5650 PRINT"[147][217]OUR/[217]OU'RE"
  554. 5660 PRINT"[163][163][163][163][163][163][163][163][163][163][163]"
  555. 5670 PRINT"[200]ERE ARE TWO WORDS THAT ARE OFTEN"
  556. 5680 PRINT"MISTAKEN FOR ONE ANOTHER.  [217]OU CAN AVOID";
  557. 5690 PRINT"ALL ERRORS WITH THESE WORDS IF YOU"
  558. 5700 PRINT"REMEMBER TWO THINGS:"
  559. 5710 PRINT"1) [217]OUR[146] IS ONLY[146] USED AS A PRONOUN"
  560. 5720 PRINT"   EXPRESSING POSSESSION.  [198]OR EXAMPLE,"
  561. 5730 PRINT"   "QU$"[217]OUR SHIRT IS BLUE."QU$
  562. 5740 PRINT"2) [217]OU'RE[146] IS ONLY[146] USED AS A"
  563. 5750 PRINT"   CONTRACTION OF "QU$"YOU ARE"QU$".  [197]XAMPLE:"
  564. 5760 PRINT"   "QU$"[201] THINK YOU'RE SITTING IN  FRONT OF"
  565. 5770 PRINT"   A COMPUTER."QU$
  566. 5780 GOSUB830
  567. 5790 AR=0:FORA=1TO23:AR=AR+QU(A):NEXT
  568. 5795 IFAR=0THEN5910
  569. 5800 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,3
  570. 5805 PRINT" [212]HAT'S IT.  [217]OU GOT"AR-8"RIGHT OUT"
  571. 5810 PRINT" OF 8 SENTENCES.":GOSUB560:GOSUB591
  572. 5815 IFAR<16THENPRINT" [217]OU CAN DO BETTER THAN THIS.":GOSUB530
  573. 5820 IF AR=16 THEN PRINT" [212]HAT'S TERRIFIC!!!!":GOSUB500:GOSUB500
  574. 5825 GOSUB591:GOSUB560:PRINT" [215]ANT TO PLAY AGAIN? (Y/N) ";
  575. 5830 GETR$:IFR$<>"Y"ANDR$<>"N"THEN5830
  576. 5835 IFR$ ="Y" THEN RESTORE:GOTO1000
  577. 5850 PRINT"[147]  [210]ETURNING TO THE DISK [205][197][206][213]
  578. 5860 [147]"MENU",8
  579. 5870 [138]
  580. 5880 [128]
  581. 5910 [142]
  582. 6000 [143] WHC 90:11:30
  583.